home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 August
/
Ahoy_Magazine_87-08_1987_Double_L_Side_A.d64
/
Number Rounding
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
421b
|
15 lines
10 rem number rounder
20 print"[147] half wave dipole designer[146]"
30 input" frequency in mhz ";fr
40 a=468/fr
50 rem round to tenths
60 b=int(a*10+.5)/10
70 rem round to hundredths
80 c=int(a*100+.5)/100
90 rem round to thousandths
100 d=int(a*1000+.5)/1000
110 print" dipole length is "a" feet"
120 print" rounded to tenths "b" feet"
130 print" rounded to hendredths "c" feet"
140 print" rounded to thousandths "d" feet"